home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / legendary_design / addressit! / reqbase.i < prev    next >
Text File  |  1994-11-17  |  21KB  |  476 lines
  1.  
  2. ; reqlibrary.i © 1988/1989 reserved by Colin Fox and Bruce Dawson */
  3.  
  4.         IFND    REQ_LIBRARY_I
  5.  
  6. REQ_LIBRARY_I   SET     1
  7.  
  8.                 INCLUDE "intuition/intuition.i"
  9.  
  10.                 INCLUDE "libraries/dos.i"
  11.                 INCLUDE "libraries/dosextens.i"
  12.  
  13.                 INCLUDE "exec/memory.i"
  14.                 INCLUDE "exec/initializers.i"
  15.                 INCLUDE "exec/alerts.i"
  16.  
  17. ReqVersion      EQU     1
  18.  
  19.  
  20. PairsSize       EQU     20
  21.  
  22.  STRUCTURE      GadgetBlock.,0          ;a boolean button style text gadget
  23.         STRUCT  gb_Gadget,gg_SIZEOF
  24.         STRUCT  gb_Border,bd_SIZEOF
  25.         STRUCT  gb_Pairs,PairsSize
  26.         STRUCT  gb_Text,it_SIZEOF
  27.         LABEL   gb_SIZEOF
  28.  
  29.  STRUCTURE      StringBlock.,0          ;a string gadget
  30.         STRUCT  sb_Gadget,gg_SIZEOF
  31.         STRUCT  sb_Info,si_SIZEOF
  32.         STRUCT  sb_Border,bd_SIZEOF
  33.         STRUCT  sb_Pairs,PairsSize
  34.         LABEL   sb_SIZEOF
  35.  
  36.  STRUCTURE      PropBlock.,0            ;a prop gadget
  37.         STRUCT  pb_Gadget,gg_SIZEOF
  38.         STRUCT  pb_Info,pi_SIZEOF
  39.         STRUCT  pb_Image,ig_SIZEOF
  40.         LABEL   pb_SIZEOF
  41.  
  42.  STRUCTURE      SliderBlock.,0          ;a slider (two arrows & a prop)
  43.         STRUCT  slb_ArrowUpLt,gg_SIZEOF
  44.         STRUCT  slb_ImageUpLt,ig_SIZEOF
  45.         STRUCT  slb_ArrowDnRt,gg_SIZEOF
  46.         STRUCT  slb_ImageDnRt,ig_SIZEOF
  47.         STRUCT  slb_Prop,pb_SIZEOF      ;this is at the end for REFRESH GLIST purposes
  48.         LABEL   slb_SIZEOF
  49.  
  50.  STRUCTURE      TwoImageBlock,0
  51.         STRUCT  tib_Gadget,gg_SIZEOF
  52.         STRUCT  tib_Image1,ig_SIZEOF
  53.         STRUCT  tib_Image2,ig_SIZEOF
  54.         LABEL   tib_SIZEOF
  55.  
  56. ATTITUDEB       EQU     16      ;Bit# of the attitude bit.
  57.  
  58. HorizSlider     EQU     0<<ATTITUDEB    ;which way the slider stands
  59. VertSlider      EQU     1<<ATTITUDEB    ;This is so that it bypasses all gadget flags.
  60.  
  61.  
  62.  
  63. ;         This structure is use with the TextRequester function.
  64.  
  65.  STRUCTURE TRStructure,0
  66.         APTR    TR_Text                 ;This is the message text, including printf() style formatting if desired.
  67.         APTR    TR_Controls             ;This is the address of the parameter list, if printf() style formatting is used.
  68.         APTR    TR_Window               ;This is an optional (zero if not used) pointer to a window on the screen you
  69.                                         ;would like the requester to show up on.
  70.         APTR    TR_MiddleText           ;If non-zero, this is the text for the gadget in the lower middle (returns 2).
  71.         APTR    TR_PositiveText         ;If non-zero, this is the text for the gadget in the lower left hand corner (returns 1).
  72.         APTR    TR_NegativeText         ;If non-zero, this is the text for the gadget in the lower right (returns 0).
  73.         APTR    TR_Title                ;This is the title for the window.
  74.         WORD    TR_KeyMask              ;This is the qualifier mask for the keyboard shortcuts.
  75.                                         ;Use $FFFF to allow any qualifiers (or none).
  76.                                         ;Zero means that no keyboard shortcuts are allowed.
  77.         WORD    TR_textcolor            ;Color of the text.  Uses Color 1 if no Color specified.
  78.         WORD    TR_detailcolor          ;Detail and block color, as in a NewWindow structure.  If
  79.         WORD    TR_blockcolor           ;both are left zero, block pen will be set to 1.
  80.         WORD    TR_versionnumber        ;Make SURE this is set to zero.
  81.         LONG    TR_rfu1                 ;Make SURE you leave these two zeroed also.
  82.         LONG    TR_rfu2                 ;Make SURE you leave these two zeroed also.
  83.         LABEL   TR_SIZEOF
  84.  
  85. ;/* NOTE:
  86. ;
  87. ;    The  control  values  mentioned above are used if you choose to insert
  88. ;printf  style directives in your strings and should contain the address of
  89. ;a list of control parameters, usually on the stack.
  90. ;    */
  91.  
  92.  
  93.  
  94. ;         This structure is for use with the GetLong function.
  95.  
  96. GLNODEFAULTB    EQU     0       ;Set this bit in the flags if you don't want a default
  97.                                 ;value to show up in the get long string gadget.  For
  98.                                 ;some things this is much better than having a zero
  99.                                 ;show up.
  100.  
  101. GLNODEFAULTM    EQU     1<<GLNODEFAULTB
  102.  
  103.  STRUCTURE      GetLongStruct,0
  104.         APTR    gl_titlebar
  105.         LONG    gl_defaultval
  106.         LONG    gl_minlimit
  107.         LONG    gl_maxlimit
  108.         LONG    gl_result
  109.         APTR    gl_window
  110.         WORD    gl_versionnumber;       ;Make SURE this is set to zero.
  111.         LONG    gl_flags;               ;Some, uh flags.  See above for bit definitions.
  112.         LONG    gl_rfu2;                ;Make SURE you leave these two zeroed also.
  113.         LABEL   gl_SIZEOF
  114.  
  115.  
  116.  STRUCTURE      GetStringStruct,0
  117.         APTR    gs_titlebar
  118.         APTR    gs_stringbuffer
  119.         APTR    gs_window
  120.         WORD    gs_stringsize
  121.         WORD    gs_visiblesize
  122.         WORD    gs_versionnumber
  123.         LONG    gs_flags
  124.         LONG    gs_rfu1
  125.         LONG    gs_rfu2
  126.         LONG    gs_rfu3
  127.         LABEL   gs_SIZEOF
  128.  
  129.  
  130.  
  131. ;         Remember,   if  you  don't  want  to  go  through  the  hassle  of
  132. ; initializing a ExtendedColorRequester structure, you can always just call
  133. ; ColorRequester  (as opposed to ExtendedColorRequester).  ColorRequester
  134. ; just  takes  a  single  parameter, in D0, the color that should start out
  135. ; being highlit.  It returns a single value, the color that was selected at
  136. ; the end.
  137.  
  138. ;         This structure is for use with the ExtendedColorRequester (_not_,
  139. ; the ColorRequester) function.
  140.  
  141.  STRUCTURE      ExtendedColorRequesterStruct,0
  142.         LONG    ecr_defcolor            ;The color that is initially highlit.
  143.         APTR    ecr_window              ;The window the 'requester' opens up in (zero normally).
  144.         LONG    ecr_rfu1                        ;Who knows what these will be used for,
  145.         LONG    ecr_rfu2                        ;but I'm sure we'll think of something.
  146.         LONG    ecr_rfu3                        ;Until then, just keep these zeroed.
  147.         LONG    ecr_rfu4                        ;Okay?
  148.         LONG    ecr_rfu5
  149.         LABEL   ecr_SIZEOF
  150.  
  151.  
  152.  
  153.         IFND    DSIZE
  154. DSIZE           EQU     130
  155. FCHARS          EQU     30
  156.         ENDC
  157. WILDLENGTH      EQU     30
  158.  
  159. FRQSHOWINFOB    EQU     0       ;Set this in Flags if you want .info files to show.  They default to hidden.
  160. FRQEXTSELECTB   EQU     1       ;Set this in Flags if you want extended select.  Default is not.
  161. FRQCACHINGB     EQU     2       ;Set this in Flags if you want directory caching.  Default is not.
  162. FRQGETFONTSB    EQU     3       ;Set this in Flags if you want a font requester rather than a file requester.
  163. FRQINFOGADGETB  EQU     4       ;Set this in Flags if you want a hide-info files gadget.
  164. FRQHIDEWILDSB   EQU     5       ;Set this in Flags if you DON'T want 'show' and 'hide' string gadgets.
  165. FRQABSOLUTEXYB  EQU     6       ;Use absolute x,y positions rather than centering on mouse.
  166. FRQCACHEPURGEB  EQU     7       ;Purge the cache whenever the directory date stamp changes if this is set.
  167. FRQNOHALFCACHEB EQU     8       ;Don't cache a directory unless it is completely read in when this is set.
  168. FRQNOSORTB      EQU     9       ;Set this in Flags if you DON'T want sorted directories.
  169. FRQNODRAGB      EQU     10      ;Set this in Flags if you DON'T want a drag bar and depth gadgets.
  170. FRQSAVINGB      EQU     11      ;Set this bit if you are selecting a file to save to.
  171. FRQLOADINGB     EQU     12      ;Set this bit if you are selecting a file(s) to load from.
  172.                                 ;These two bits (save and load) aren't currently used for
  173.                                 ;anything, but they may be in the future, so you should
  174.                                 ;remember to set them.  Also, these bits make it easier if
  175.                                 ;somebody wants to customize the file requester for their
  176.                                 ;machine.  They can make it behave differently for loading
  177.                                 ;vs saving.
  178. FRQDIRONLYB     EQU     13      ;Allow the user to select a directory, rather than a file.
  179.  
  180. FRQSHOWINFOM    EQU     1<<FRQSHOWI